home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
6
/
c_math.zip
/
FLOOR.C
< prev
next >
Wrap
Text File
|
1983-07-02
|
338b
|
31 lines
/*
* floor and ceil-- greatest integer <= arg
* (resp least >=)
*/
double modf();
double
floor(d)
double d;
{
double fract;
if (d<0.0) {
d = -d;
fract = modf(d, &d);
if (fract != 0.0)
d += 1;
d = -d;
} else
modf(d, &d);
return(d);
}
double
ceil(d)
double d;
{
return(-floor(-d));
}